**SABATOGE
READ
CHANGE SS DHDR
TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 22 1
COPY 3 3 1 COUNT=AUTO

***
**SHATTERED ALLIANCE
SET PAT2 D4 AA B7 /
READ
CHANGE SS DHDR
TSTART PAT2 STAT 2
IF FAIL 2 THEN TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 22 1

***
**SNAKE BYTE
SET PAT2 DD AD DA /
READ
CHANGE SS DHDR
TSTART PAT2 STAT 2
IF FAIL 2 THEN TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 0 1 SYNC=YES
COPY 1.5 A.5 1 SYNC=YES
***
**SNEAKERS
READ
CHANGE SS DHDR
SET PAT2 DD AD DA /
TSTART PAT2 STAT 2
IF FAIL 2 THEN TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 0 1 SYNC=YES
COPY 1.5 C.5 1 SYNC=YES
***
**SNOGGLE
READ
CHANGE SS DHDR
TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 0 1 SYNC
COPY 1 F 1
COPY 10.5 11.5 1 SYNC=YES

***
**SOFTPORN ADVENTURE
READ
CHANGE SS DHDR
TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 22 1
COPY 3 3 1 COUNT=AUTO

***
**SPACE EGGS
READ
CHANGE SS DHDR
SET PAT2 DD AA /
TSTART PAT2 STAT 2
IF FAIL 2 THEN TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 0 1
COPY 2 5 1
COPY 11 1A 1

***
**SPACE QUARKS
READ
CHANGE SS DHDR
SET PAT2 AB D4 AB /
SET PAT3 FE DD AF /
SET PAT4 AA DE BB /
TSTART PAT2 STAT 2
IF FAIL 2 THEN TSTART PAT3 STAT 3
IF FAIL 3 THEN TSTART PAT4 STAT 4
IF FAIL 4 THEN TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 2 1
COPY 3.5 5.5 1
COPY 7 9 2
COPY A.5 B.5 1
COPY D 15 1

***
**SPACE WARRIOR
READ
CHANGE SS DHDR
SET PAT2 DF AD DE /
TSTART PAT2 STAT 2
IF FAIL 2 THEN TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 0 1
COPY 2.5 3.5 1
COPY 5 8 3
COPY 6.5 6.5 1
COPY A 10 3

***
**STAR BLASTER
READ
CHANGE SS DHDR
SET PAT2 DF AD DE /
TSTART PAT2 STAT 2
IF FAIL 2 THEN TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 0 1 SYNC=YES
COPY 7 20.5 1.5 SYNC=YES

***
**STAR CRUISER
READ
CHANGE SS DHDR
SET PAT2 AA DD BB /
TSTART PAT2 STAT 2
IF FAIL 2 THEN TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 3 3 SYNC=YES
COPY 4 B 1 SYNC=YES
COPY 11 12 1 SYNC=YES

***
**STAR MINES
READ
CHANGE SS DHDR
SET PAT2 D5 AA AD /
TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART PAT2 STAT 2
IF FAIL 2 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 2 1
COPY 4 A 1

***
**STAR THIEF
READ
CHANGE SS DHDR
TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 13 1
COPY 22 22 1 COUNT=AUTO

***
**SPECTRE
READ
CHANGE SS DHDR
SET PAT2 C5 AA B5 /
TSTART PAT2 STAT 2
IF FAIL 2 THEN TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 22 1

***
**SPELLING STRATEGY
READ
CHANGE SS DHDR
TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 22 1 SYNC=YES

***
**SPITFIRE SIMULATOR
READ
CHANGE SS DHDR
TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 F 1
COPY 15 15 1

***
**STARSHIP COMMANDER
READ
CHANGE SS DHDR
TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1                                                                                                                                                                                                                                                                